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DEBUG 8 


DECUS Program Library Write-up DECUS NO. 8-513 

DESCRIPTION OF PROGRAM AND HOW TO USE IT 

The program is entered with a "JMS" to 0I0A - upon entering the program 
a pointer (0IPT) is set to the contents of the AC, this pointer points to the 
location to be examined by the debug routine. Another location (0I0AC) is 
set to zero, this location holds numbers input to the debug routine. Next 
the program executes a "JMS I" to a user supplied routine for a carriage- 
return line-feed (assumed loc. 66 in the listing). Next 0IPT is placed in 
the AC and then the AC is printed on the teletype (octal nos.) a space is 
printed then the contents of the location pointed to by 0IPT are printed 
(octal nos.). Next the program goes to a "READ" routine (supplied by the 
user and pointed to by location 3 in the listing) which will return to the 
following location with the ASCII code of the character entered from the 
keyboard in the AC (and in location 125 in the listing - TS1). The program 
now checks the input character to see if it is one of the following: 

1) C.R. - if it is a C.R. the program exits to the call + 1. 

2) Space - a space opens the next location showing the location and its 

contents. 

3) L - an L will load the octal numbers typed in into the last opened 

location. 

4) N - N takes the numbers typed in and uses them as a pointer to the 

next location to open. 

5) G - takes the octal number typed in an begins execution there. (A 

slight modification would allow placing a value in the AC and Link 
before beginning execution.) 

6) B - Inserts a break-point instruction in the location pointed to by 

the numbers typed in (the break point instruction is a JMS I 127 
in the listing). 

7) R - Restores the last breakpoint instruction to what it was originally. 

8) S - Executes a "JMS" to the address just typed in. 

9) V - Uses the current contents as a pointer for the next location to 

be opened. 

10) C - Uses the current contents as a pointer to a floating-point number. 

(The user must provide a routine [INF0RA] to look at floating¬ 
point numbers - an example is shown in the listing.) 

11) F - Uses the number that has been entered as a pointer to a floating¬ 

point number. (See C above.) 

If the entered character was not one of the above the ASCII code is "ANDed" 
with an octal 7 and the number is added to a binary accumulator that has been 
rotated 3 places to the left (no carry) and the routine returns to read another 
character and check it as above. 

If the switch register is "0" locations and contents are printed (with 
CRLF) until the switch register is non-zero. 







)J( ^ 

/ THIS SHOULD POINT TO A USER INPUT ROUTINE 
0003 7432 READ, HLT 

/ THIS SHOULD POINT TO A USER OUTPUT ROUTINE 
0004 74 02 PRINT, HLT 

*66 

/ THIS SHOULD POINT TO A USER CARRAGE RETURN L.F. ROUTINE 
0066 7432 CRLF, HLT 

*77 

0077 0 554 INFORA, I NFOR 

*125 

0125 0303 TS1, 0 /HOLDS INPUT FROM READ ROUTINE 


* 12 7 

0127 2715 ADD8RT, D8RT 

*654 

OUTPUT=14 


INPUT=13 

/ROUTINE TO UPDATE CONSTANTS 

/ENTER WITH ADDRESS OF CONSTANT IN THE AC 


0654 

3300 

I NFOR, 

0 


0655 

3334 


DCA 

XAD 

065 6 

44 37 


JMS I 

7 

365 7 

5 704 


FGET I 

XAD 

0660 

2314 


OUTPUT 


0661 

2300 


FEXT 


3662 

1303 


TAD 

P2 73 

0663 

4404 


JMS I 

PRINT 

0664 

4407 


JMS I 

7 

3665 

0013 


INPUT 


0666 

6305 


FPUT 

TEMP 

0667 

0000 


FEXT 


0670 

1060 


TAD 

60 

0671 

7640 


SZA CLA 


0672 

52 75 


JMP 

.+3 

0673 

3362 


DCA 

62 

0674 

5 654 


JMP I 

I NFOR 

0675 

4407 


JMS I 

7 

0676 

5305 


FGET 

TEMP 

0677 

6704 


FPUT I 

XAD 

0720 

0000 


FEXT 


0701 

3062 


DCA 

62 

0702 

5 654 


JMP I 

I NFOR 

0703 

32 73 

P2 73, 

273 


0704 

0000 

XAD, 

0 


0705 

0000 

TEMP, 

0 


0706 

0000 


0 


0707 

0000 


0 



*2600 



2 600 

0000 

01OA, 

0 


2 601 

3355 


DCA 

OIPT 

2 602 

335 6 


DCA 

OIOAC 

2603 

4466 


JMS I 

CRLF 

2 604 

1355 


TAD 

OIPT 

2 605 

4331 


JMS 

OOUT 

2 606 

1755 


TAD I 01PT 

2607 

4331 


JMS 

OOUT 

2610 

1375 


TAD 

SWITCH 

261 1 

7653 


SNA CLA 


2612 

5261 


JMP 

OILF 


/ SAVE ADDRESS OF FLOATING NUH 

/ GET FLOATING NUMBER 
/ LOOK AT IT 

/ FOR 


/ WANT TO CHANGE IT? 


/ANY INPUT? 

/ NO 

/ T FORMAT 
/NO-GO BACK 
/ YES - REPLACE IT 


/AND GO BACK 

/ T 

/ STORAGE FOR ADDRESS OF FLOATIH 
/ STORAGE FOR INPUT - 
/ IF ANY. 


/ OCTAL INPUT/OUTPUT 


2 



cv*> rv> ro to ro ^ ^ ^ ^ 


2613 

4403 

0101, 

JMS I 


READ 


/ 

GET CHARACTER 

2614 

0371 


AND 


P 0007 


/ 

CONVERT TO OCTAL 

2615 

335 7 


DCA 


OCH 




2616 

4360 


JMS 


MATCH 


/ 

FIND OUT WHAT IS WANTED 

2617 

75 63 


-215 





2 62 0 

5 600 


JMP I 


01 OA 


/ 

C.R. 

2 621 

7540 


-240 






2 622 

5261 


JMP 


OILF 


/ 

SPACE BAR 

2 623 

74 64 


-314 






2 624 

5257 


JMP 


01LO 


/ 

L FOR LOAD 

2625 

74 62 


-316 






2 62 6 

5267 


JMP 


01 NX 


/ 

N FOR NEXT 

2 62 7 

745 6 


-322 






2 630 

532 3 


JMP 


OIDBRS 


/ 

R FOR RESTORE BREAK >01 NT 

2631 

74 71 


-307 






2 632 

5271 


JMP 


OIGO 


/ 

G FOR GO 

2 633 

7476 


-302 






2 634 

5303 


JMP 


0ID3 


/ 

8 FOR INSERT BREAK POINT 

2 635 

7455 


-323 






2636 

52 73 


JMP 


OIOJMS 


/ 

S FOR JMP TO SUBROUTINE 

2 637 

74 72 


-306 






2 64 0 

5300 


JMP 


OIOFLK 


/ 

F FOR LOOK AT FLOATING POINi 

2 641 

7452 


-326 






2 642 

5255 


JMP 


01VECT 


/ 

V FOR VECTOR 

2 64 3 

74 75 


-303 






2 644 

5276 


JMP 


OIFVEC 


/ 

C FLOATING VECTOR 

2645 

0000 


0 






2 646 

135 6 


TAD 


01 OA C 




2 64 7 

7104 


CLL RAL 





2 65 0 

7104 


CLL RAL 





2 651 

7104 


CLL RAL 





2 652 

1 o5 7 


TAD 


OCH 




2653 

335 6 


DCA 


01 OA C 




2 654 

5£ 13 


JMP 


0101 




2 655 

1755 

0IVECT, 

TAD I 

OIPT 

/ 

GET ADDRESS 

2 65 6 

5231 


JMP 


OIOA + 1 




2657 

1256 

0IL0, 

TAD 


OIOAC 


/ 

STORE IN CORE 

2660 

3155 


DCA I 


OIPT 




2661 

2255 

OILF, 

ISZ 


OIPT 


/ 

MOVE TO NEXT WORD 

2 662 

32 75 


DCA 


SWITCH 




2663 

74 04 


OSR 






2 664 

764 0 


SZA CLA 





2 665 

2375 


ISZ 


SWITCH 




2666 

52 02 


JMP 


01 OA+2 




2667 

1356 

01 NX, 

TAD 


OIOAC 


/ 

RESET POINTER 

2670 

5201 


JMP 


OIOA+1 


/ 

GO LOOK 

2671 

4466 

OIGO, 

JMS I 


CRLF 


/ 

CARRIAGE RETURN LINE FEEC 

2 672 

5 75 6 


JMP I 


OIOAC 


/ 

GO START AT OIOAC ADD. 

2673 

4466 

0I0JMS , 

JMS I 


CRLF 


/ 

POSITION CARRIAGE 

2 674 

4756 


JMS I 


OIOAC 


/ 

SOCK IT TO ’EM 

2 675 

4315 


JMS 


D3RT 


/ 

LOOK AT THE GOOD STUFF 

2676 

1755 

OIFVEC, 

TAD I 

01PT 

/ 

GET POINTER 

2 677 

7410 


SKP 






2700 

135 6 

0I0FLK , 

TAD 


OIOAC 




2 701 

4477 


JMS I 


INFORA 




2 702 

5267 


JMP 


01 NX 





3 



2703 

1 '5 6 

01D3, 

TAD 

I 

OIOAC 

2 704 

3 '.27 


DCA 


OIDBSV 

2 705 

1 >5 6 


TAD 


OIOAC 

2706 

3 >30 


DCA 


OIDBAD 

2707 

1 .2 6 


TAD 


JMSDB 

2710 

3 '5 6 


DCA 

I 

OIOAC 

2711 

5261 


JMP 


OILF 

2712 

2713 

AOIOACS 

9 


01 OA CS 

2713 

0000 

01 OA CS, 

0 



2714 

0000 

OIOLS, 

0 



2715 

0000 

D3RT, 

0 



2716 

3313 


DCA 


01 OA CS 

2717 

7004 


RAL 



2 72 0 

3314 


DCA 


OIOLS 

2 721 

1312 


TAD 


AOIOACS 

2 722 

5201 


JMP 


OIOA + 1 

2 723 

132 7 

OIDBRS , 

TAD 


OIDBSV 

2724 

3730 


DCA 

I 

OIDBAD 

2725 

5261 


JMP 


OILF 

2726 

4527 

JMSDB, 

J MS 

I 

ADDBRT 

2727 

0000 

OIDBSV, 

0 



2 730 

0000 

OIDBAD, 

0 



2731 

0000 

OOUT, 

0 



2 732 

3354 


DCA 


OOT 

2733 

1372 


TAD 


M4 

2 734 

3353 


DCA 


OOC 

2 735 

1354 


TAD 


OOT 

2736 

7004 


RAL 



2 737 

7006 


RTL 



2 74 0 

3354 


DCA 


OOT 

2 74 1 

1354 


TAD 


OOT 

2742 

7004 


RAL 



2 74 3 

0371 


AND 


P 0007 

2744 

1374 


TAD 


P2 60 

2745 

44 04 


JMS 

I 

PRINT 

2 74 6 

2. >53 


ISZ 


OOC 

2 74 7 

5 4 35 


JMP 


.-12 

2 75 0 

1 '73 


TAD 


K24 0 

2751 

4 404 


JMS 

I 

PRI NT 

2 752 

5 /31 


JMP 

I 

OOUT 

2753 

0 J00 

OOC, 

0 



2 754 

I6'000 

OOT, 

0 



2755 

0000 

01PT, 

0 



2 75 6 

0000 

OIOAC, 

0 



2 75 7 

0000 

OCH, 

0 



2760 

0000 

MATCH, 

0 



2761 

1760 


TAD 

I 

MATCH 

2 762 

2360 


ISZ 


MATCH 

2763 

745 0 


SNA 



2764 

5760 


JMP 

I 

MATCH 

2 7 65 

1 125 


TAD 


TS1 

2766 

765 0 


SNA 

CLA 

2767 

5763 


JMP 

I 

MATCH 

2770 

5 361 


JMP 


MATCH+1 

2771 

000 7 

P0007, 

7 



2 772 

7774 

M4, 

-4 



2 773 

0240 

K240, 

240 



2774 

02 6 0 

P2 60, 

260 



2775 

0001 

SWITCH, 

1 




/ SAVE COMMAND 
/AND ADDRESS 

/ INSERT BREAK POINT INSTRUCTS 
/AND GO LOOK AT NEXT 

/ STORAGE FOR AC 
/AND LINK 

/ SAVE AC 

/ AND LINK 

/ GO LOOK AT IT 
/ PICK UP COMMAND 
/ RESTORE IT 
/ LOOK AT NEXT 


/ COUNT 4 DIGITS 


/ ISOLATE ONE OCTAL DIGIT 


/ CONVERT TO ASCII 

/ FINISHED ? 

/ NO 


/ YES 
/ COUNTER 
/ TEMP 

/ OCTAL POINTER 
/ OCTAL ACCUMULATOR 
/ OCTAL CHARACTER 

/ GET NUMBER 
/ MOVE POINTER 
/ FINISHED ? 

/ YES 
/ MATCH ? 

/ YES - GO TO IT 
/NO - TRY AGAIN 


4 


ERROR COUNT = 0000 





t 




ADD8RT 

012 7 

AOIOAC 

2712 

CRLF 

0066 

D8RT 

2715 

I NFOR 

0654 

I NFOR A 

0077 

I NPIIT 

0013 

JMSD3 

2726 

(24 0 

2773 

(MATCH 

2760 

M 4 

2 772 

OCH 

2757 

0 IOd 

2 703 

OIDBAD 

2730 

0ID3RS 

2 723 

0IDBSV 

2727 

OIFVEC 

2676 

OIGO 

2 671 

OILF 

2661 

01LO 

2657 

01 NX 

2667 

OIOA 

2600 

OIOAC 

2 75 6 

OIOACS 

2713 

OIOFLK 

2700 

01OJMS 

2 673 

0I0L3 

2714 

0X01 

2613 

DIPT 

2 755 

OIVLCT 

2655 

OOC 

2753 

OOT 

2754 

OOUT 

2731 

OUTPUT 

0014 

PR I NT 

0004 

P 0007 

2771 

P2 60 

2 774 

P273 

0703 

READ 

0003 

SWITCH 

2775 

TEMP 

0705 

TS1 

0125 

X AD 

0704 


5 



1 






